home *** CD-ROM | disk | FTP | other *** search
/ Talisman BBS - Support Disks / Talisman bbs - Novaterm 9.3.D64 / nova.Data convrt (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-01-01  |  3.0 KB  |  84 lines
  1. 10 poke45,peek(174):poke46,peek(175):clr
  2. 20 data300,1200,2400,4800,9600,19200,38400
  3. 30 data3408,851,425,4915,1090,459,3410,845,421
  4. 40 data3283,820,409,4735,1050,442,3285,814,406
  5. 50 dv=peek(186):q$=chr$(34):ifdv<8ordv>16thendv=8
  6. 60 dimp$(38),ph$(38),pw$(38),bd$(38),bd%(38),cg%(38),l8%(38),sc$(38),b%(17)
  7. 70 dimfc$(16),p(12),bd(6):open9,0:vn$="9.3":fori=0to6:readbd(i):next
  8. 80 forj=0topeek(678)
  9. 90 fori=0to8:readq:r2=int(q/256):r1=q-r2*256:b%(i*2)=r1:b%(i*2+1)=r2:next:next
  10. 100 d1=dv:d2=dv:d3=dv:d1$="0:":d2$="0:":d3$="0:":pn=4:ps=7:sw=0:c8=191:c9=15
  11. 110 xo=17:xf=19:xp=0:pa=0:ft=15:fc=32:sr=1
  12. 120 print"[147][206]ovaterm config file converter"
  13. 130 print"([195]onverts older config files to v"vn$")":open15,dv,15
  14. 140 print"[197]nter old version number: [160][157]";:input#9,v$:print""
  15. 150 v=val(v$):ifv=0then440
  16. 160 vv$=mid$(str$(v),2):ifv=int(v)thenvv$=vv$+".0"
  17. 170 gosub610:ifv=0then140
  18. 180 ifv>9then260
  19. 190 ph=38:fori=1to38:ifbd$(i)=""then220
  20. 200 j=0:fork=0to6:ifval(bd$(i))=bd(k)thenj=k:k=6
  21. 210 next:bd%(i)=j
  22. 220 ifp$(i)=""thenph=i-1:i=38
  23. 230 next:ifbd<7then260
  24. 240 j=0:fori=0to6:ifbd=bd(i)thenj=i:i=6
  25. 250 next:bd=j
  26. 260 print"[211]aving...":ifpf$=""thenpf$="nova phone"
  27. 270 open2,dv,2,"nova data "+vn$+",s,w":print#2,vn$
  28. 280 fori=2to16:print#2,q$fc$(i):next:print#2,bd:print#2,di:print#2,d1
  29. 290 print#2,d2:print#2,q$d1$:print#2,q$d2$:print#2,d3:print#2,q$d3$
  30. 300 print#2,pn:print#2,ps:print#2,c1:print#2,c2:print#2,c3
  31. 310 print#2,be:print#2,re:print#2,c8:print#2,c9:print#2,xo:print#2,xf
  32. 320 print#2,xp:print#2,sw:print#2,pa:print#2,ft:print#2,fc:print#2,sr
  33. 330 fori=0to17:print#2,b%(i):next
  34. 340 print#2,q$mi$:print#2,q$mo$:print#2,q$pt$
  35. 350 print#2,q$fo$:print#2,q$f8$:print#2,q$te$:print#2,q$as$:print#2,q$pf$:close2
  36. 360 ifph=0orv>=9then440
  37. 370 ifph<20then410
  38. 380 print#15,"s:"pf$"1":open2,dv,2,pf$+"1,s,w":print#2,ph-19
  39. 390 fori=20toph:print#2,q$p$(i):print#2,q$ph$(i):print#2,q$pw$(i):print#2,bd%(i)
  40. 400 print#2,cg%(i)+2*l8%(i):print#2,q$sc$(i):next:close2:ph=19
  41. 410 print#15,"s:"pf$:open2,dv,2,pf$+",s,w"
  42. 420 print#2,ph:fori=1toph:print#2,q$p$(i):print#2,q$ph$(i):print#2,q$pw$(i)
  43. 430 print#2,bd%(i):print#2,cg%(i)+2*l8%(i):print#2,q$sc$(i):next:close2:goto560
  44. 440 ifv>=9.2then560
  45. 450 print"[197]nter phone book file: [160][157]";:input#9,pf$:print
  46. 460 ifpf$="[160]"then560
  47. 470 open2,dv,2,pf$:input#15,e:ife>19then550
  48. 480 input#2,ph:fori=1toph:input#2,p$(i),ph$(i),pw$(i),bd$(i)
  49. 490 input#2,cg%(i),l8%(i),sc$(i):ifval(bd$(i))<7thenbd%(i)=val(bd$(i)):goto520
  50. 500 fork=6to0step-1:ifval(bd$(i))>=bd(k)thenbd%(i)=k:k=0
  51. 510 next
  52. 520 next:close2:print#15,"s:"pf$:open2,dv,2,pf$+",s,w":print#2,ph
  53. 530 fori=1toph:print#2,q$p$(i):print#2,q$ph$(i):print#2,q$pw$(i):print#2,bd%(i)
  54. 540 print#2,cg%(i)+2*l8%(i):print#2,q$sc$(i):next
  55. 550 close2:goto440
  56. 560 print"[147]":ifpeek(6)<255thenend
  57. 570 open2,dv,0,"prog menu":input#15,e:close2:ife>19then590
  58. 580 load"prog menu",dv
  59. 590 open2,dv,0,"novaterm ?.?*":input#15,e:close2:ife>19thenend
  60. 600 load"novaterm ?.?*",dv,1
  61. 610 open2,dv,2,"nova data "+vv$:input#2,v$:ifv$<>vv$thenclose2:goto830
  62. 620 ifv>8.1then660
  63. 630 fori=1to20:input#2,p$(i),ph$(i),pw$(i),bd$(i),cg%(i):next
  64. 640 fori=2to16:input#2,fc$(i):next
  65. 650 input#2,bd,pr,s,w,h,c1,c2,c3,be,re,mi$,mo$,pt$,fo$,te$:close2:return
  66. 660 ifv>8.2then700
  67. 670 input#2,ph:fori=1toph:input#2,p$(i),ph$(i),pw$(i),bd$(i),cg%(i):next
  68. 680 fori=2to16:input#2,fc$(i):next
  69. 690 input#2,bd,pr,s,w,h,c1,c2,c3,be,re,mi$,mo$,pt$,fo$,te$:close2:return
  70. 700 ifv>9then740
  71. 710 fori=2to16:input#2,fc$(i):next
  72. 720 input#2,bd,pr,s,w,h,di,c1,c2,c3,be,re,rm,l8,mi$,mo$,pt$,fo$,f8$,te$,as$,pf$
  73. 730 close2:return
  74. 740 ifv>9.1then780
  75. 750 fori=2to16:input#2,fc$(i):next
  76. 760 input#2,bd,di,d1,d2,d1$,d2$,c1,c2,c3,be,re,rm,c8,c9,xo,xf,sw
  77. 770 input#2,mi$,mo$,pt$,fo$,f8$,te$,as$,pf$:close2:return
  78. 780 ifv>9.2then830
  79. 790 fori=2to16:input#2,fc$(i):next
  80. 800 input#2,bd,di,d1,d2,d1$,d2$,d3,d3$,pn,ps,c1,c2,c3,be,re,c8,c9,xo,xf,sw,pa
  81. 810 input#2,ft,fc,sr:fori=0to17:input#2,b%(i):next
  82. 820 input#2,mi$,mo$,pt$,fo$,f8$,te$,as$,pf$:close2:return
  83. 830 print"[214]ersion number does not match":v=0:return
  84.